home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / T / Terminal 1.7.cpt / Terminal scripts / Sieve.s < prev   
Text File  |  1989-11-06  |  1KB  |  62 lines
  1. /*
  2.     Terminal 1.7
  3.     "Sieve.s"
  4.  
  5. This script was used to test the "Terminal" script interpreter. It is of no
  6. practical use. It is the standard sieve benchmark often used to test the
  7. performance of computers. Note that because the "Terminal" script language
  8. is an interpreted language it is rather slow for loop intensive operations,
  9. but for its intended purpose as a communications script language it is fast
  10. enough.
  11.  
  12. The timing results were as follows (compared to the same program compiled
  13. with a real C compiler)
  14.  
  15.     Macintosh IIcx: 113 seconds (THINK C:  43.2 ms ==> 2616 times faster)
  16.     Macintosh Plus: 527 seconds (THINK C: 271.0 ms ==> 1945 times faster)
  17.  
  18. */
  19.  
  20. int SIZE = 8191;
  21. int LAUF = 1;
  22. char FALSE = 0;
  23. char TRUE = 1;
  24.  
  25. main()
  26. {
  27.     int tick, iter, count, i, k, prime;
  28.     char *flags, *p;
  29.  
  30.     display("Sieve benchmark %i passes\rThis may take several minutes...\r",
  31.         LAUF);
  32.     if (!(flags = new(SIZE))) {
  33.         display("Not enough memory\r")
  34.         return;
  35.     }
  36.     tick = time();                            /* <====== start */
  37.  
  38.     for (iter = 0; iter < LAUF; ++iter) {
  39.         count = 0;
  40.         p = flags + SIZE;
  41.         while (p > flags)
  42.             *(--p) = TRUE;
  43.         /* p == flags */
  44.         for (i = 0; i < SIZE; ++i) {
  45.             if (*p) {
  46.                 k = i + (prime = i + i + 3);
  47.                 while (k < SIZE) {
  48.                     flags[k] = FALSE;
  49.                     k = k + prime;
  50.                 }
  51.                 ++count;
  52.                 /*display("%i\r", prime);*/
  53.             }
  54.             ++p;
  55.         }
  56.     }
  57.  
  58.     tick = time() - tick;                    /* <====== stop */
  59.     free(flags);
  60.     display("%i primes in %i seconds\r", count, tick);
  61. }
  62.